*===============================================================================*
*																				*
*		THIS DO FILE PRODUCES ONLINE APPENDIX FIGURE A2 						*
* 		IN LONDONO-VELEZ AND QUERUBIN											*
*		"THE IMPACT OF EMERGENCY CASH ASSISTANCE IN A PANDEMIC: EXPERIMENTAL 	* 
* 		EVIDENCE FROM COLOMBIA", REVIEW OF ECONOMICS AND STATISTICS				*
*																				*
*		LAST MODIFIED: 2021-02-02												*
*																				*
*===============================================================================*

	use 	"${datadir}/main.dta", clear
	
	foreach x of varlist vat5_1-vat5_7 vat5__666{
	replace `x'=0 if vat4==0	
	}
	
	graph 	bar vat5_2 vat5_1 vat5_3 vat5_7 vat5_4 vat5_6 vat5_5 vat5__666 if transfer2_type==1 & treated==1 ///
			, ytitle(Fraction) ylab(0(.01).14) ///
			legend(row(3) lab(1 "Using Daviplata app") lab(2 "Delays")  ///
			lab(3 "Receiving cash from bank") lab(4 "Lack of info") ///
			lab(5 "Unable to pick up cash") lab(6 "Bank had no cash") ///
			lab(7 "Bank was closed") lab(8 "Other")  position(6)) ///
			bar(1, color(black)) bar(2, lcolor(black) fcolor(gray)) bar(3, lcolor(black) fcolor(navy)) ///
			bar(4, lcolor(black) fcolor(green)) bar(5, lcolor(black) fcolor(purple)) bar(6, lcolor(black) fcolor(red)) ///
			bar(7, lcolor(black) fcolor(orange)) bar(8, lcolor(black) fcolor(yellow)) 
			graph export "OnlineAppendix/FA2A.pdf", replace
		
	graph 	bar vat5_2 vat5_1 vat5_3 vat5_7 vat5_4 vat5_6 vat5_5 vat5__666 if transfer2_type==2 & treated==1 ///
			, ytitle(Fraction) ylab(0(.01).14)  ///
			legend(row(3) lab(1 "Using Daviplata app") lab(2 "Delays")  ///
			lab(3 "Receiving cash from bank") lab(4 "Lack of info") ///
			lab(5 "Unable to pick up cash") lab(6 "Bank had no cash") ///
			lab(7 "Bank was closed") lab(8 "Other")  position(6)) ///
			bar(1, color(black)) bar(2, lcolor(black) fcolor(gray)) bar(3, lcolor(black) fcolor(navy)) ///
			bar(4, lcolor(black) fcolor(green)) bar(5, lcolor(black) fcolor(purple)) bar(6, lcolor(black) fcolor(red)) ///
			bar(7, lcolor(black) fcolor(orange)) bar(8, lcolor(black) fcolor(yellow)) 
			graph export "OnlineAppendix/FA2B.pdf", replace
		
